home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / iguana / incosrc / incosrc.exe / STARF / RAND.INC < prev    next >
Text File  |  1993-09-02  |  511b  |  24 lines
  1.  
  2. GetRandomNumber:
  3.         MOV     AX,[RandSeed]
  4.         MOV     BX,[RandSeed2]
  5.         MOV     BP,[RandSeed3]
  6.         ADD     AX,0a137h
  7.         ADD     BX,63f7h
  8.         ADD     BP,784Ah
  9.         ROL     AX,2
  10.         MOV     [RandSeed],AX
  11.         ADD     BX,AX
  12.         ROR     BX,1
  13.         MOV     [RandSeed2],BX
  14.         SUB     BP,BX
  15.         XOR     AX,BP
  16.         MOV     [RandSeed3],BP
  17.         ADD     AX,BX
  18.         RET
  19.  
  20. RandSeed     DW 348Bh
  21. RandSeed2    DW 7F34h
  22. RandSeed3    DW 32bfh
  23.  
  24.